home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlTabSetCurFocus.au3 < prev    next >
Text File  |  2006-06-17  |  2KB  |  58 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiTab.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK, $tab3, $tab4
  7. Dim $msg, $button, $item = 0
  8.  
  9. GUICreate("Tab Set Current Focus", 300, 200)  ; will create a dialog box that when displayed is centered
  10.  
  11. GUISetBkColor(0x00E0FFFF)
  12. GUISetFont(9, 300)
  13.  
  14. $tab = GUICtrlCreateTab(10, 10, 200, 100, $TCS_MULTILINE)
  15.  
  16. $tab0 = GUICtrlCreateTabItem("tab0")
  17. GUICtrlCreateLabel("label0", 30, 80, 50, 20)
  18. $tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
  19. $tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
  20. GUICtrlCreateTabItem("") ; end tabitem definition
  21.  
  22. $tab1 = GUICtrlCreateTabItem("tab----1")
  23. GUICtrlCreateLabel("label1", 30, 80, 50, 20)
  24. $tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
  25. GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
  26. $tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
  27. GUICtrlCreateTabItem("") ; end tabitem definition
  28.  
  29. $tab2 = GUICtrlCreateTabItem("tab2")
  30. GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
  31. GUICtrlCreateLabel("label2", 30, 80, 50, 20)
  32. $tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
  33. GUICtrlCreateTabItem("") ; end tabitem definition
  34.  
  35. $tab3 = GUICtrlCreateTabItem("tab3")
  36. GUICtrlCreateTabItem("") ; end tabitem definition
  37.  
  38. $tab4 = GUICtrlCreateTabItem("tab4")
  39. GUICtrlCreateTabItem("") ; end tabitem definition
  40.  
  41. GUICtrlCreateLabel("label3", 20, 130, 50, 20)
  42. $button = GUICtrlCreateButton("Set", 200, 130, 90, 30)
  43.  
  44. GUISetState()
  45.  
  46. ; Run the GUI until the dialog is closed
  47. While 1
  48.     $msg = GUIGetMsg()
  49.     Select
  50.         Case $msg = $GUI_EVENT_CLOSE
  51.             ExitLoop
  52.         Case $msg = $button
  53.             _GUICtrlTabSetCurFocus ($tab, $item)
  54.             $item = Not $item
  55.     EndSelect
  56. WEnd
  57.  
  58.